From: Dmitry Gutov <dmitry@gutov.dev>
Date: Thu, 28 Mar 2024 03:41:52 +0000 (+0200)
Subject: (project-current): Add binding for 'non-essential'
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2130
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=1552f8345d8cbea282d171bffe5a22e330eeed37;p=emacs.git

(project-current): Add binding for 'non-essential'

* lisp/progmodes/project.el (project-current):
Add binding for 'non-essential' (bug#69584).
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index ac18aceadcf..a10e24f3e28 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -229,7 +229,8 @@ See the doc string of `project-find-functions' for the general form
 of the project instance object."
   (unless directory (setq directory (or project-current-directory-override
                                         default-directory)))
-  (let ((pr (project--find-in-directory directory)))
+  (let ((pr (project--find-in-directory directory))
+        (non-essential (not maybe-prompt)))
     (cond
      (pr)
      ((unless project-current-directory-override